﻿Imports System.Web.UI
Imports SISSAT.BusinessLayer.Views
Imports SISSAT.WebDevelopment.Views

Namespace Pages.Home
    Public Class Subjects
        Inherits Page
        Implements ISubjectView

        Property Presenter As SubjectPresenter

        Public WriteOnly Property RoomNumber As String Implements ISubjectView.RoomNumber
            Set(value As String)
                roomNumberTextBox.Text = value
                roomNumberTextBox.ToolTip = value
            End Set
        End Property

        Public WriteOnly Property ScheduleDay As String Implements ISubjectView.ScheduleDay
            Set(value As String)
                dayTextBox.Text = value
                dayTextBox.ToolTip = value
            End Set
        End Property

        Public ReadOnly Property ScheduleId As Integer Implements ISubjectView.ScheduleId
            Get
                Return Convert.ToInt32(HttpContext.Current.Request.QueryString("scid"))
            End Get
        End Property

        Public WriteOnly Property ScheduleTime As String Implements ISubjectView.ScheduleTime
            Set(value As String)
                timeTextBox.Text = value
                timeTextBox.ToolTip = value
            End Set
        End Property

        Public Event OnInitialization() Implements ISubjectView.OnInitialization

        Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
            Presenter = New SubjectPresenter(Me)
            RaiseEvent OnInitialization()
        End Sub

    End Class
End Namespace
